﻿Public Class DocumentoAlmacenDetalle

    Dim _CIA, _SUC, _TIPODOC, _DCACOD, _ARTCOD As String
    Dim _DADCOD, _CANT As Integer

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tipodoc As String, dcacod As String, dadcod As Integer, artcod As String, cantidad As Integer)
        Me._CIA = cia
        Me._SUC = suc
        Me._TIPODOC = tipodoc
        Me._DCACOD = dcacod
        Me._DADCOD = dadcod
        Me._ARTCOD = artcod
        Me._CANT = cantidad
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TIPODOC
        End Get
        Set(value As String)
            _TIPODOC = value
        End Set
    End Property

    Public Property DCA_Codigo() As String
        Get
            Return _DCACOD
        End Get
        Set(value As String)
            _DCACOD = value
        End Set
    End Property

    Public Property DAD_Codigo() As Integer
        Get
            Return _DADCOD
        End Get
        Set(value As Integer)
            _DADCOD = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _ARTCOD
        End Get
        Set(value As String)
            _ARTCOD = value
        End Set
    End Property

    Public Property CANTIDAD() As Integer
        Get
            Return _CANT
        End Get
        Set(value As Integer)
            _CANT = value
        End Set
    End Property

End Class
